home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / health / mdimform.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-07-22  |  6.0 KB  |  163 lines
  1. VERSION 2.00
  2. Begin MDIForm MDIMForm 
  3.    Caption         =   "MULTIPLE DOCUMENT FORM"
  4.    ClientHeight    =   4020
  5.    ClientLeft      =   945
  6.    ClientTop       =   2220
  7.    ClientWidth     =   7365
  8.    Height          =   4710
  9.    Left            =   885
  10.    LinkTopic       =   "MDIForm2"
  11.    Top             =   1590
  12.    Width           =   7485
  13.    Begin Menu BACK 
  14.       Caption         =   "BACK"
  15.    End
  16.    Begin Menu DisposeRoute 
  17.       Caption         =   "EXIT"
  18.    End
  19.    Begin Menu Arrange 
  20.       Caption         =   "ARRANGE"
  21.    End
  22.    Begin Menu Forward 
  23.       Caption         =   "NEXT"
  24.    End
  25. Sub ARRANGE_Click ()
  26. MDIMForm.Arrange 0
  27. End Sub
  28. Sub BACK_Click ()
  29. If smartform(6) Then
  30.         assess3.Show
  31.         MDIMForm.Hide
  32. formcheck "Multiple Document"
  33. End If
  34. End Sub
  35. Sub DISPOSEROUTE_Click ()
  36. If smartform(6) Then
  37. menumode MDIMForm
  38. formcheck "Multiple Document"
  39. End If
  40. End Sub
  41. Sub FORWARD_Click ()
  42. If smartform(6) Then
  43. summary.Show
  44. MDIMForm.Hide
  45. formcheck "Multiple Document"
  46. End If
  47. End Sub
  48. Sub MDIForm_Load ()
  49. MDIMForm.Move 0, 0, screen.Width, screen.Height
  50. Load MDIChild1C
  51. Load MDIChild1B
  52. Load MDIChild1A
  53. MDIChild1C.Move 0, 0, MDIMForm.ScaleWidth, MDIMForm.ScaleHeight
  54. MDIChild1B.Move 0, 360, MDIMForm.ScaleWidth, MDIMForm.ScaleHeight
  55. MDIChild1A.Move 0, 720, MDIMForm.ScaleWidth, MDIMForm.ScaleHeight
  56. MDIChild1C.Show
  57. MDIChild1B.Show
  58. MDIChild1A.Show
  59. MDIChild1C.List3(0).AddItem "AGE"
  60. MDIChild1C.List3(0).AddItem "HEIGHT"
  61. MDIChild1C.List3(0).AddItem "WEIGHT"
  62. MDIChild1C.List3(0).AddItem "TEMP"
  63. MDIChild1C.List3(0).AddItem "PULSE"
  64. MDIChild1C.List3(0).AddItem "RESPIRATIONS"
  65. MDIChild1C.List3(0).AddItem "BLOOD PRESSURE"
  66. MDIChild1C.List3(0).AddItem "GENERAL HEALTH:"
  67. MDIChild1C.List3(0).AddItem "USE OF TOBACCO"
  68. MDIChild1C.List3(0).AddItem "USE OF ALCOHOL"
  69. MDIChild1C.List3(0).AddItem "USE OF OTHER DRUGS"
  70. MDIChild1C.List3(0).AddItem "ORAL MUCOSA:"
  71. MDIChild1C.List3(0).AddItem "HEALTHY"
  72. MDIChild1C.List3(0).AddItem "MOIST"
  73. MDIChild1C.List3(0).AddItem "SKIN:"
  74. MDIChild1C.List3(0).AddItem "LESIONS"
  75. MDIChild1C.List3(0).AddItem "NOURISHMENT:"
  76. MDIChild1C.List3(0).AddItem "WELL-NOURISHED"
  77. MDIChild1C.List3(0).AddItem "OBESE"
  78. MDIChild1C.List3(0).AddItem "EMACIATED"
  79. MDIChild1C.List3(0).AddItem "SKIN:"
  80. MDIChild1C.List3(0).AddItem "SKIN NORMAL"
  81. MDIChild1C.List3(0).AddItem "HEALING PROBLEMS"
  82. MDIChild1C.List3(0).AddItem "CHANGES IN PIGMENTATION"
  83. MDIChild1C.List3(0).AddItem "TEETH:"
  84. MDIChild1C.List3(0).AddItem "NO PROBLEM CONDITION"
  85. MDIChild1C.List3(0).AddItem "DENTURES"
  86. MDIChild1C.List3(0).AddItem "CARIES"
  87. MDIChild1C.List3(0).AddItem "BROKEN TEETH"
  88. MDIChild1C.List3(0).AddItem "MISSING TEETH"
  89. '**********************************************
  90. MDIChild1B.List2(0).AddItem "BREATH SOUNDS"
  91. MDIChild1B.List2(0).AddItem "LIP COLOR"
  92. MDIChild1B.List2(0).AddItem "USE OF ACCESSORY MUSCLES"
  93. MDIChild1B.List2(0).AddItem "COUGH:"
  94. MDIChild1B.List2(0).AddItem "NON-PRODUCTIVE"
  95. MDIChild1B.List2(0).AddItem "PRODUCTIVE SPUTUM COLOR"
  96. MDIChild1B.List2(0).AddItem "APICAL RATE"
  97. MDIChild1B.List2(0).AddItem "RHYTHM:"
  98. MDIChild1B.List2(0).AddItem "REGULAR"
  99. MDIChild1B.List2(0).AddItem "IRREGULAR"
  100. MDIChild1B.List2(0).AddItem "ABNORMAL HEART SOUNDS NOTED"
  101. MDIChild1B.List2(0).AddItem "NECK VEIN DISTENSION AT 45 DEGREES:"
  102. MDIChild1B.List2(0).AddItem "PRESENT"
  103. MDIChild1B.List2(0).AddItem "ABSENT"
  104. MDIChild1B.List2(0).AddItem "EDEMA       LOCATION"
  105. MDIChild1B.List2(0).AddItem "RIGHT DORSALIS PEDAL PULSE:"
  106. MDIChild1B.List2(0).AddItem "STRONG"
  107. MDIChild1B.List2(0).AddItem "WEAK"
  108. MDIChild1B.List2(0).AddItem "ABSENT"
  109. MDIChild1B.List2(0).AddItem "LEFT DORSAL PEDAL PULSE"
  110. MDIChild1B.List2(0).AddItem "STRONG"
  111. MDIChild1B.List2(0).AddItem "WEAK"
  112. MDIChild1B.List2(0).AddItem "ABSENT"
  113. MDIChild1B.List2(0).AddItem "CALF TENDERNESS"
  114. MDIChild1B.List2(0).AddItem "NO"
  115. MDIChild1B.List2(0).AddItem "YES"
  116. MDIChild1B.List2(0).AddItem "EXTREMITIES   COLOR"
  117. MDIChild1B.List2(0).AddItem "              TEMP"
  118. MDIChild1B.List2(0).AddItem "BREAST SOUNDS"
  119. '**********************************************************
  120. MDIChild1A.List1(0).AddItem "HEARING"
  121. MDIChild1A.List1(0).AddItem "NORMAL LEFT"
  122. MDIChild1A.List1(0).AddItem "NORMAL RIGHT"
  123. MDIChild1A.List1(0).AddItem "IMPAIRED LEFT"
  124. MDIChild1A.List1(0).AddItem "IMPAIRED RIGHT"
  125. MDIChild1A.List1(0).AddItem "USES AID"
  126. MDIChild1A.List1(0).AddItem "VISION"
  127. MDIChild1A.List1(0).AddItem "NORMAL"
  128. MDIChild1A.List1(0).AddItem "IMPAIRED"
  129. MDIChild1A.List1(0).AddItem "GLASSES"
  130. MDIChild1A.List1(0).AddItem "PROSTHESES"
  131. MDIChild1A.List1(0).AddItem "FARSIGHTED"
  132. MDIChild1A.List1(0).AddItem "NEARSIGHTED"
  133. MDIChild1A.List1(0).AddItem "OTHER PROBLEMS"
  134. MDIChild1A.List1(0).AddItem "COMMUNICATION:"
  135. MDIChild1A.List1(0).AddItem "LANGUAGE SPOKEN:"
  136. MDIChild1A.List1(0).AddItem "UNDERSTANDS ENGLISH:"
  137. MDIChild1A.List1(0).AddItem "YES"
  138. MDIChild1A.List1(0).AddItem "NO"
  139. MDIChild1A.List1(0).AddItem "ABLE TO:"
  140. MDIChild1A.List1(0).AddItem "READ"
  141. MDIChild1A.List1(0).AddItem "WRITE"
  142. MDIChild1A.List1(0).AddItem "LIP READ"
  143. MDIChild1A.List1(0).AddItem "COGNITION:"
  144. MDIChild1A.List1(0).AddItem "NO PROBLEMS"
  145. MDIChild1A.List1(0).AddItem "RECENT MEMORY CHANGE"
  146. MDIChild1A.List1(0).AddItem "DIFFICULTY LEARNING"
  147. MDIChild1A.List1(0).AddItem "DISCOMFORT / PAIN"
  148. MDIChild1A.List1(0).AddItem "NO"
  149. MDIChild1A.List1(0).AddItem "YES  "
  150. MDIChild1A.List1(0).AddItem " DESCRIBE (LOCATION-INTENSITY-DURATION)  "
  151. MDIChild1A.List1(0).AddItem "EDUCATION - NEEDS REASON FOR ADMISSION"
  152. '***************************************************************
  153. MDIChild1A.List1(0).AddItem "HEARING"
  154. MDIChild1A.List1(0).AddItem "HEARING"
  155. MDIChild1A.List1(0).AddItem "HEARING"
  156. MDIChild1C.Move 0, 0
  157. MDIChild1B.Move 0, 360
  158. MDIChild1A.Move 0, 720
  159. MDIChild1A.HEdit1A.Move MDIChild1A.BEdit1A.Left, MDIChild1A.BEdit1A.Top, MDIChild1A.BEdit1A.Width, MDIChild1A.BEdit1A.Height
  160. MDIChild1B.HEdit1B.Move MDIChild1B.BEdit1B.Left, MDIChild1B.BEdit1B.Top, MDIChild1B.BEdit1B.Width, MDIChild1B.BEdit1B.Height
  161. MDIChild1C.HEdit1C.Move MDIChild1C.BEdit1C.Left, MDIChild1C.BEdit1C.Top, MDIChild1C.BEdit1C.Width, MDIChild1C.BEdit1C.Height
  162. End Sub
  163.